(prompt "Going to delete C:VoiceShell. \n\nAre you sure you want to continue?")
(help "Selecting 'Proceed' will destroy the specified file.")
(choices "Proceed" "Skip This Part")
)
1)
(
(run "Delete C:VoiceShell QUIET")
(run "Delete C:VoiceShell.info QUIET")
)
)
)
)
(complete 6)
(set name
(askdir
(prompt "Where is VoiceShell installed?")
(help @askdir-help)
(default @default-dest)
)
)
(complete 10)
(if (= (askbool
(prompt "Do you wish to delete the directory \"" name "\"?\n\nNote! The directory itself may still exist after this procedure. After this program is finished, please reset your Amiga and re-run this program to remove the directory.")
(help "Selecting 'Proceed' will destroy the directory and everything in it")
(choices "Proceed" "Skip This Part")
)
1)
(
(set file (cat "Delete \"" name "\" ALL FORCE"))
(run file)
(set file (cat "Delete \"" name ".info\""))
(run file)
)
)
(complete 32)
(startup "VoiceShell"
(help @startup-help)
(prompt
"Some commands might need to be removed from \"S:User-Startup\".\n\nNote! Two lines will still remain! Please remove these yourself.")
(command "")
)
(complete 38)
(if (= (askbool
(prompt "Going to delete ALL files in the S: directory that have 'VoiceShell' in file name.\n\nAre you sure you want to continue?")
(help "Selecting 'Proceed' will destroy the specified files.")
(choices "Proceed" "Skip This Part")
)
1)
(run "Delete S:#?VoiceShell#? QUIET")
)
(complete 44)
(if (= (askbool
(prompt "Going to delete ALL files in the S: directory that have the postfix '.VS'.\n\nAre you sure you want to continue?")
(help "Selecting 'Proceed' will destroy the specified files.")
(choices "Proceed" "Skip This Part")
)
1)
(run "Delete S:#?.VS QUIET")
)
(complete 57)
(if (= (askbool
(prompt "Going to delete ALL files in the ENVARC: directory that have 'VoiceShell' in file name.\n\nAre you sure you want to continue?")
(help "Selecting 'Proceed' will destroy the specified files.")
(choices "Proceed" "Skip This Part")
)
1)
(run "Delete ENVARC:#?VoiceShell#? QUIET")
)
(complete 65)
(if (= (askbool
(prompt "Going to delete VoiceShell ARexx scripts from REXX:.\n\nAre you sure you want to continue?")
(help "Selecting 'Proceed' will destroy the specified files.")
(choices "Proceed" "Skip This Part")
)
1)
(
(run "Delete REXX:VSOn.rexx QUIET")
(run "Delete REXX:VSOff.rexx QUIET")
(run "Delete REXX:VSOn QUIET")
(run "Delete REXX:VSOff QUIET")
)
)
(complete 78)
(delete "LIBS:voice.library"
(prompt "Going to delete Libs:voice.library.\n\nAre you sure you want to continue?")